home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / WWW / MacHTTP Extras / Script Tools / Examples / Check For Speech Mgr < prev    next >
Encoding:
Text File  |  1993-09-08  |  356 b   |  14 lines  |  [TEXT/R*ch]
  1. --
  2. --    Gestalt selector definitions
  3. --
  4.  
  5. property gestaltSpeechAttr : "ttsc" -- selector for Speech Manager attributes
  6. property gestaltSpeechMgrPresent : 0 -- bit that indicates the Speech Manager exists
  7.  
  8.  
  9. if get gestalt gestaltSpeechAttr bit gestaltSpeechMgrPresent then
  10.     display dialog "Speech Mgr Present"
  11. else
  12.     display dialog "Speech Mgr Missing"
  13. end if
  14.